C  THIS DOES TRANSLATION OF INPUT AND WRITES BINARY FILE FOR PASS 3.
	COMMON /DEVS/ID1,ID21,JTYPE,ID23,ID20
      COMMON K,I(512) /P/P(50) /FINOUT/PEAK,RPEAK,NBUF
	1 /IFIRST/IFIRST,IDT 
	EQUIVALENCE (P2,P(2))
	DATA TRNS/'TRNS'/,BLA/' '/
C****************CHECK NEAR HERE FOR NEEDED CHANGES **************
	WRITE(JTYPE,3)
	READ(JTYPE,4)XNAM
	IF(XNAM.EQ.BLA)XNAM=TRNS 
	CALL DISKO(ID21,XNAM,0)
C CREATE OUTPUT FILE, DEFAULT NAME=FOR21
	IFIRST=-1
	IDT=1
C ABOVE 2 ARE IN TRANS. ROUTINES.
1	CALL TRANS(IDT)
	IF(P(1).EQ.1)WRITE(JTYPE,5),P2
2	WRITE(ID21)K,(P(J),J=1,K)
	IF(P(1).EQ.6.)CALL EXIT   
C CLOSE FILE AFTER A 'FINISH' OR A COLON (=END OF INPUT) HAS BEEN READ.
	GO TO 1
3	FORMAT(' TYPE OUTPUT NAME(<CR>=TRNS) -- '$)
4	FORMAT(A4)
5	FORMAT('+',F9.2,$)
	END
	SUBROUTINE PLAY
C THIS IS A DUMMY
	END